﻿Option Strict On

Namespace Vertraege

    Public Class Vertrag

        Private _id As Integer
        Private _bezeichnung As String

        Private _partner As String
        Private _partnerDetails As String

        Private _wiedervorlage As Boolean
        Private _wiedervorlageDatum As Date

        Private _status As String
        Private _inhalt As String

        Private _abschlussdatum As Date
        Private _kuendigungsdatum As Date
        Private _ablaufdatum As Date

        Private _zahlungsintervall As String
        Private _betrag As Double

        Public Sub New()
            Wiedervorlage = False
            WiedervorlageDatum = Date.Now.Date
            Abschlussdatum = Date.Now.Date
            Kuendigungsdatum = Date.Now.Date
            Ablaufdatum = Date.Now.Date
        End Sub

        Public Property Id As Integer
            Get
                Return _id
            End Get
            Set(ByVal value As Integer)
                _id = value
            End Set
        End Property

        Public Property Ablaufdatum As Date
            Get
                Return _ablaufdatum
            End Get
            Set(ByVal value As Date)
                _ablaufdatum = value
            End Set
        End Property

        Public Property Abschlussdatum As Date
            Get
                Return _abschlussdatum
            End Get
            Set(ByVal value As Date)
                _abschlussdatum = value
            End Set
        End Property

        Public Property Betrag As Double
            Get
                Return _betrag
            End Get
            Set(ByVal value As Double)
                _betrag = value
            End Set
        End Property

        Public Property Bezeichnung As String
            Get
                Return _bezeichnung
            End Get
            Set(ByVal value As String)
                _bezeichnung = value
            End Set
        End Property

        Public Property PartnerDetails As String
            Get
                Return _partnerDetails
            End Get
            Set(ByVal value As String)
                _partnerDetails = value
            End Set
        End Property

        Public Property Inhalt As String
            Get
                Return _inhalt
            End Get
            Set(ByVal value As String)
                _inhalt = value
            End Set
        End Property

        Public Property Kuendigungsdatum As Date
            Get
                Return _kuendigungsdatum
            End Get
            Set(ByVal value As Date)
                _kuendigungsdatum = value
            End Set
        End Property

        Public Property Partner As String
            Get
                Return _partner
            End Get
            Set(ByVal value As String)
                _partner = value
            End Set
        End Property

        Public Property Status As String
            Get
                Return _status
            End Get
            Set(ByVal value As String)
                _status = value
            End Set
        End Property

        Public Property Wiedervorlage As Boolean
            Get
                Return _wiedervorlage
            End Get
            Set(ByVal value As Boolean)
                _wiedervorlage = value
            End Set
        End Property

        Public Property WiedervorlageDatum As Date
            Get
                Return _wiedervorlageDatum
            End Get
            Set(ByVal value As Date)
                _wiedervorlageDatum = value
            End Set
        End Property

        Public Property Zahlungsintervall As String
            Get
                Return _zahlungsintervall
            End Get
            Set(ByVal value As String)
                _zahlungsintervall = value
            End Set
        End Property

    End Class

End Namespace
